home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A).zip / Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A).po / SCRAMBLER.DEMO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  732b  |  18 lines
  1. 10  REM   *************************
  2. 20  REM   * SCRAMBLER.DEMO        *
  3. 30  REM   * BY ROGER CLEMENTS     *
  4. 40  REM   * COPYRIGHT (C) 1990    *
  5. 50  REM   * MINDCRAFT PUBL. CORP. *
  6. 60  REM   * CONCORD, MA 01742     *
  7. 70  REM   *************************
  8. 80  HIMEM: 24576: REM *** Protect memory above $6000
  9. 90  ONERR  GOTO 180
  10. 100  PRINT  CHR$(4)"BRUN SCRAMBLER": POKE 216,0
  11. 110  HOME : HTAB 3: PRINT "APPLE II CHARACTER STRING SCRAMBLER"
  12. 120  HTAB 11: PRINT "BY: ROGER CLEMENTS"
  13. 130  HTAB 8: PRINT "(C) 1990 MINDCRAFT PUBL."
  14. 140  VTAB 12: INPUT "STRING (PRESS RETURN TO QUIT):  ";A$: HOME 
  15. 150  IF A$ = ""  THEN  END 
  16. 160  & A$
  17. 170  PRINT : PRINT : PRINT "PRESS ANY KEY... ";: GET A$: GOTO 110
  18. 180  IF  PEEK(222) = 191  THEN  RESUME